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-- file: DumpVars.Mesa 
-- Edited by: 

Johnsson. August 30, 1978 6:02 PM 

Sandman, May 23, 1978 8:44 AM 

Barbara, July 31. 1978 3:45 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [VMLimit, wordlength], 
ControlDefs: FROM "controldef s" USING [ 

EPIndex, EPRange, GFT, GFTIndex, GFTNull , Global Frame, Global FrameHandle, 

NullFrame, NuHGIobal Frame, ProcDesc, SignalDesc], 
DebugBreakptDefs: FROM "debugbreakp tdef s" USING [EntryToBTI] , 
DebugContextDefs: FROM "debugcontextdefs" USING [FrameToModuleName], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

addbitaddrs, AmIaRecord, DumpCtxList, EquivalentVersions , FieldContext, 

FormatRecord, FRPointer, fullbitaddress , f ull symaddress , GetValue, 

GetValueN, InitSOP, LA, Lookup. MainBTI, SA, SearchType, SeiHandle, 

SOPointer, SymbolObject , VersionStamp, WriteBlanks, Wr tteSeiHandle, 

WriteTransferName], 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

CopyRead, DFreeString, DGetString, DWriteLonglnteger. LookupFail, 

WriteCharZ. WriteEOL], 
DebugRealDefs: FROM "debugrealdef s" USING [AppendRealNumber], 
DebugSymbolDefs: FROM "debugsymboldef s" USING [ 

DAcquireSymbolTable, DReleaseSymbolTable, HandleForBase, 

Symbol sForGFrame , TableForString], 
DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

Bound. LengthenPointer , LoadStatelnval id , LongREAD, 

MakeProcedureDescriptor, MREAD, ReadGlobalGFI , UserWri teLongSubString, 

UserWri teLongString, Val idGlobal Frame], 
lODefs: FROM "iodefs" USING [ 

CR, DEL, LF, NUL, NumberFormat , SP. TAB, WriteChar, 

WriteDecimal , WriteNumber, WriteOctal, WriteString] , 
LoadStateDefs: FROM "loadstatedef s" USING [ 

InputLoadState, ReleaseLoadState] , 
SegmentDefs: FROM "segmentdef s" USING [Insuff icientVM], 
StringDefs: FROM "stringdefs" USING [ 

AppendSubString, Substring, SubStringDescriptor], 
SymbolTableDefs: FROM "symbol tabledefs" USING [ 

NoSymbolTable , SymbolTableBase, SymbolTableHandle] , 
SymDefs: FROM "symdefs" USING [ 

BTIndex, BTNull, CBTIndex, codeBOOLEAN, codeCHARACTER, codelNTEGER, 

CSElndex. CTXIndex, CTXNull, ISEIndex, ISENull , SEIndex, SENull , 

TransferMode]; 

DEFINITIONS FROM DebuggerDefs; 

DumpVars: PROGRAM 

IMPORTS DebugBreakptDefs, DebugContextDefs, DebuggerDefs, DebugMiscDefs, 
DebugRealDefs, DebugSymbolDefs, DebugUtilityDefs, lODefs, LoadStateDefs, 
SegmentDefs. StringDefs, SymbolTableDefs 
EXPORTS DebuggerDefs » 
BEGIN 

UnsignedDecimal : lODefs .NumberFormat « [ 

base: 10, zerofill: FALSE, unsigned: TRUE, columns: 1]; 
CTXIndex: TYPE = SymDefs .CTXIndex; 

Global FrameHandle: TYPE = ControlDefs .Global FrameHandle; 
ISENull: ISEIndex « SymDefs . ISENul 1 ; 
ISEIndex: TYPE « SymDefs . ISEIndex; 
SENull: SFIndex = SymDefs .SENull ; 
SEIndex: TYPE = SymDefs. SEIndex; 

StringCTXIndex: CTXIndex = L00PH0LE[6]: 

Display: PUBLIC PROCEDURE [sop: SOPointer, frp: FRPointer, doconst: BOOLEAN] « 
BEGIN OPEN sop.stbase; -- dump variable described by sei in frame 
tsei : SymDefs .CSElndex *- UnderType[sop . tsei] ; 
space: CARDINAL; 

IF sop. sei § ISENull AND (seb+sop . sei) . constant AND -doconst THEN RETURN; 
WITH (seb + tsei) SELECT FROM 
basic «> DumpBasicType[sop] ; 
record «> 
BEGIN 
IF sop. space « THEN 
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BEGIN 

space ♦- IF sop.sei # ISENull THEN (seb + sop.sei) . idinfo 

ELSE WordsForType[tsei]*A1 toDef s .wordlength; 
IF length < space THEN sop . baddr .bd ^ sop.baddr.bd + space-length; 
END; 
DumpRe cord [sop, FALSE]; 
END; 
union «> BEGIN Dump\/ariant[sop ,f rp] ; RETURN END; 
subrange «> DumpSubRange[sop]; 
enumerated => DumpEnumerated[sop] ; 
pointer => 

IF Fie1dContext[sop.stbase» pointedtotype] ■ StringCTXIndex AND 

TypeForm[pointedtotype] » record THEN DumpString[sop, FALSE] 
ELSE DumpPtr[sop]; 
array »> DumpArray[sop,f rp] ; 
arraydesc «> DunipArrayD[sop,f rp]; 
transfer «> 

SELECT mode FROM 

procedure => DumpProcV[sop] ; 
signal, error «> Dumps igVar[sop] ; 
port => DumpPort\/[sop] ; 
process => DumpProcess\/[sop]; 
program => DumpProgV[sop] ; 

ENDCASE => BEGIN lODef s .Wr i teChar[ ' ?] ; DebugMi scDef s . Wr i teEOL[] ; END; 
long => DumpLong[sop,f rp] ; 
relative => DumpRelative[sop]; 
real => DumpReal[sop]; 
--ignore other types 

ENDCASE => BEGIN lODef s . Wr i teChar[ ' ?] ;DebugMi scDef s .Wr i teEOL[] ; END; 
frp.firstsym ♦- FALSE; 
RETURN 
END; 

DumpRecord: PROCEDURE [sop: SOPointer, recurring: BOOLEAN] « 

BEGIN OPEN DebugSymbolDefs, sop.stbase; -- type fields of record 

newFR: FormatRecord; 

a: f ullbi taddress; 

linkso: SymbolObject; 

linksop: SOPointer ♦- @linkso; 

root: SymDefs.CSE Index; 

tag, i, count: CARDINAL <- 0; 

tt.link: SEIndex; 

s: ISEIndex; 

sh: SymbolTableDef s.SymbolTableHandle ^ HandleForBase[sop.stbase]; 

changedSymbols: BOOLEAN <- FALSE; 

newFR <- FormatRecord[indentation: 0, symid: TRUE, firstsym: TRUE, 

symdelim: ':, startchar: '[, termchar: '], intersym: ',]; 
InitS0P[1inksop]; 
IF sop.sei # ISENull AND sop. there 

THEN a ^ addbitaddrs[funsymaddress[sop] , sop. baddr] 
ELSE a ♦- sop .baddr ; 
linksopt <- sopt; link <- sop.tsei; 
DO 

root <- UnderType[1 ink]; 

WITH t:(seb+root) SELECT FROM 

record »> 

WITH t SELECT FROM 
linked => 

IF linktype # SENull THEN 

BEGIN link <- linktype; count <- count + 1; END 
ELSE EXIT; 
ENDCASE => EXIT; 
ENDCASE -> EXIT; 
ENDLOOP; 
root ♦- UnderType[sop. tsei]; 
WITH t:(seb+root) SELECT FROM 
record «> 

WITH t SELECT FROM 

linked «> IF linktype # SENull THEN 
BEGIN 

tt <- sop.tsei; 
DO 

WITH (seb+tt) SELECT FROM 

id »> BEGIN tag ^ idvalue; tt <- idinfo; END; 
ENDCASE «> EXIT; 
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ENDLOOP; 
linksopt.sei <- WITH (seb+1 inktype) SELECT FROM 
id -> L00PH0LE[1 inktype, ISEIndex], 
ENDCASE »> ISENull; 
linksopt . tsei <- linktype; 
1 inksopt . baddr *- a; 
DLimpRecord[1 inksop , TRUE 1 

EnteringVPart »> BEGIN OPEN sb; 
sop.stbase <- sb; 
changedSymbols ♦- TRUE; 

FOR s ^ FirstCtxSe[c], NextSe[s] UNTIL s » ISENull DO 
IF (seb+s) .constant AND (seb+s) . idvalue » tag THEN 
BEGIN sop.sei ^ s; sop.tsei *- s; 
root ♦- Und0rType[sop. tsei]; EXIT; END; 
REPEAT 

FINISHED »> ERROR; 
ENDLOOP; 
CONTINUE; 
END]; 
newFR <- FormatRecord[indentation: 0, symid: TRUE, firstsym: TRUE, 

symdelim: ':, startchar: '[, termchar: '], intersym: ',]; 
END; 
ENDCASE; 
ENDCASE; 
WriteSeiHand1e[[stbase: sop.stbase, 
sei: WITH (seb+sop. tsei) SELECT FROM 

id => LOOPHOLE[sop.tsei, ISEIndex], 
ENDCASE => ISENull]]; 
DumpCtxList[Fie1dContext[sop.stbase, root], sop.stbase, sop. there, a, QnewFR 
1 AmIaRecord => RESUME[TRUE] ; 
EnteringVPart => IF -recurring THEN RESUME]; 
FOR i IN [0. .count) DO 

DebugMiscDef s.WriteCharZ[newFR. termchar]; 
ENDLOOP; 
IF ChangedSymbols THEN 

BEGIN DReleaseSymbo1Tab1e[sop.stbase]; [] ^ DAcquireSymbolTable[sh] ; END; 
RETURN 
END; 

EnteringVPart: SIGNAL Csb:SymboUab1 eDef s .SymbolTableBase, c:CTXIndex] » CODE; 

DumpVariant: PROCEDURE [sop: SOPointer, frp: FRPointer] » 
BEGIN OPEN sop.stbase; -- type fields of record 
vso: SymbolObject; 
vsop: SOPointer ^ @vso; 
gsei: ISEIndex; 
tsei: SymDef s .CSEIndex; 
lb: INTEGER ♦- 0; 
frp. firstsym <- FALSE; 
WriteBI anks [frp. indentation]; 
WITH (seb + UnderType[sop.tsei]) SELECT FROM 

union ='> SIGNAL EnteringVPart[sop .stbase, casectx]; 

ENDCASE => ERROR; 
WITH (seb + UnderType[sop.tsei]) SELECT FROM 

union «> 
BEGIN 
IF -controlled THEN 

BEGIN IODefs,WriteString[*'COMPUTED Variant[ . . . ]"L] ; RETURN END; 
gsei <- tagsei; 
END; 

ENDCASE; 
InitSOP[vsop]; 
vso <- SymbolObject[sei : gsei, tsei: (seb+gsei ) . idtype, baddr: sop. baddr, 

stbase: sop.stbase, space: 0, there: sop. there]; 
tsei <- UnderType[vsop. tsei] ; 
WITH (seb + tsei) SELECT FROM 

subrange «> lb <- origin; 

ENDCASE; 
WITH (seb + UnderType[sop.tsei]) SELECT FROM 

union »> DumpVariantSubpart[sop . stbase, sop. baddr, sop. there, casectx, GetValue[vsop]+lb] ; 

ENDCASE «> ERROR; 
IF frp. firstsym THEN DebugMiscDef s .WriteCharZ[frp . termchar]; 
RETURN 
END; 

DumpVariantSubpart: PROCEDURE [sbase: SymbolTableDefs .SymbolTableBase, 
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baddr: f u1 Ibitaddress. there: BOOLEAN, c: CTXIndex, v: UNSPECIFIED] ■ 

BEGIN OPEN DebugSymbolDefs, sbase, StringDefs; 

newFR: FormatRecord; 

sei: ISEIndex; 

sh: Symbo 1 Tab 1 eDefs. Symbol Tab! eHandle; 

filename: STRING ^ [40]; 

desc: SubStringDescriptor; 

filess: Substring ^' Qdesc; 

newctx: CTXIndex; 

includedVersion: De bugger Defs .VersionStamp; 

WITH (ctxb+c) SELECT FROM 
included ■> 
BEGIN 

IF '-ctxcomplete THEN 
BEGIN 

sh <- HandleForBase[sbase]; 

SubStringForHash[f iless, (mdb+ctxmodule) .mdhti]; 
AppendSubString[f ilename, filess] ; 
newctx <r ctxmap; 

includedVersion <- (mdb+ctxmodule) .mdStamp; 
DReleaseSymbolTable[sbase]; 

sbase ^ DAcquireSymbolTable[TableForString[f ilename 
ISymbolTableDefs.NoSymbolTable => GOTO continue] 
ISymbolTableDefs.NoSymbolTable «> GOTO continue]; 
IF ~Equivalent\/ersions[sbase. stHandle. version , includedVersion] THEN 

BEGIN DReleaseSymbolTab1e[sbase]; GOTO continue; END; 
DumpVariantSubpart[sbase , baddr, there, newctx, v]; 
DRe 1 easeSymbo 1 Tab le[ sbase]; 
[] <- DAcquireSymbolTable[sh]; 
RETURN 
END; 
EXITS 

continue => sbase ^ DAcquireSymbolTable[sh]; 
END; 
ENDCASE; 
FOR sei ^ FirstCtxSe[c]. NextSe[sei] UNTIL sei = ISENull DO 
IF (seb+sei) .constant AND (seb+sei ) . idvalue = v THEN EXIT; 
REPEAT 

FINISHED «> BEGIN OPEN lODefs; 
WriteString["UnknownVariant["L]; 
WriteOctal[v]; 
WriteChar[*]]; 
RETURN 
END; 
ENDLOOP; 
WriteSeiHandle[[stbase: sbase, sei: sei]]; 
newFR ♦" FormatRecord[indentation: 0, symid: TRUE, firstsym: TRUE, 

symdelim: *:, startchar: '[, termchar: '], intersym: ',]; 
DumpCtxList[FieldContext[sbase, (seb+sei) . idinfo] , sbase, there, baddr, QnewFR]; 
RETURN 
END; 

DumpEnumerated: PROCEDURE [sop: SOPointer] « 

BEGIN OPEN lODefs, sop.stbase; -- type a enumerated value 
v: INTEGER; 

WITH (seb + UnderType[sop.tsei]) SELECT FROM 
enumerated => 

IF ~WriteEnumeratedValue[sop.stbase, valuectx, v <- GetValue[sop]] 
THEN BEGIN Wr i teStr ing["?["L] ; Wri teOctal [v] ; WriteChar[ ' ]]; END; 
ENDCASE; 
RETURN 
END; 

WriteEnumeratedValue: PROCEDURE [sbase: SymbolTableDef s .SymbolTableBase, 
c: CTXIndex, v: UNSPECIFIED] RETURNS [b: BOOLEAN] « 
BEGIN OPEN DebugSymbolDefs, StringDefs, sbase; 
sei: ISEIndex; 

sh : SymbolTableDef s . Symbol Tabl eHandle; 
filename: STRING ^ [40]; 
desc: SubStringDescriptor; 
filess: Substring ^ 6desc; 
newctx: CTXIndex; 
includedVersion: Debugger Defs .VersionStamp; 

IF c « SymOefs.CTXNull THEN RETURN; 
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WITH (ctxb+c) SELECT FROM 
included »»> 
BEGIN 

IF -ctxcomplete THEN 
BEGIN 

sh *- Handl0ForBase[sbase] ; 

SubStringForHash[fi1ess, (mdb+ctxniodule) .mdhti] ; 
AppendSubString[fi lename, f iless]; 
newctx <- ctxmap; 

includedVersion ^ (mdb-Hctxmodule) .mdStamp; 
DReleaseSymbolTabl e[sbase]; 

sbase ^ DAcquireSymbo ITabl0[Tab1eForString[f ilename 
ISymbolTableDef s .NoSymbolTable «> GOTO continue] 

ISymbolTableDers.NoSymboUable => GOTO continue]; 
IF ~Equivalent\/ersions[sbase. stHandle. version , includedVersion] THEN 

BEGIN DReleaseSymbol rable[sbase]; GOTO continue; END; 
b <- WriteEnumeratedValue[sbase, newctx, v]; 
DRel e aseSymbo 1 Tab le[ sbase]; 
[] ^ DAcquireSymbolTable[sh]; 
RETURN 
END; 
EXITS 

continue => sbase ^ DAcquireSyribolTab1e[sh] ; 
END; 
ENDCASE; 
FOR sei ♦- FirstCtxSe[c], NextSe[sei] UNTIL sei = ISENull DO 
IF (seb+sei) .constant AND (seb+sei) . idvalue = v THEN 
BEGIN 

WriteSeiHandle[SeiHandle[stbase: sbase, sei: sei]]; 
RETURN[TRUE] 
END; 
ENDLOOP; 
RETURN[FALSE] 
END; 

DumpSubRange: PROCEDURE [sop: SOPointer] » 

BEGIN OPEN lODefs, sop.stbase; ~- type a subrange value 
tsei: SymDef s.CSEIndex ^ UnderType[sop . tsei]; 
lb, v: INTEGER f- 0; 
size: CARDINAL ^ AltoDef s . VMLiniit ; 
Ibset: BOOLEAN <- FALSE; 
WITH (seb+tsei) SELECT FROM 
subrange => size <- range; 
ENDCASE; 
DO 

WITH (seb+tsei) SELECT FROM 
subrange => 
BEGIN 

IF -Ibset THEN lb ^ origin; 
Ibset <- TRUE; 

tsei <- UnderType[rangetype] ; 
END; 
enumerated «> 
BEGIN 
IF ~WriteEnumerated\/a1ue[sop.stbase, valuectx, v ♦- (GetValue[sop]+lb)] 

THEN BEGIN Wri teString["?["L] ; Wri teOctal [v] ; Wri teChar[ ' ]] ; END; 
RETURN 
END; 
basic «> 
BEGIN 

V *- GetVa1ue[sop] + lb; 

IF code « SymDef s.codeCHARACTER THEN 
BEGIN DumpCharacter[v]; RETURN END; 

IF size > 77777B THEN Wri teOctal [v] ELSE Wri teDecimal [v] ; 

RETURN 

END; 
pointer «> 

BEGIN 

v ^ GetValue[sop] + lb; 

IF size > 77777B THEN Wri teOctal [v] ELSE WriteDecimal[v]; 

WriteChar['t]; 

RETURN 

END; 
ENDCASE «> 

BEGIN 

V ♦- GetValue[sop] + lb; 
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IF size > 77777B THEN WriteOctal [v] ELSE Wri teDecimal [v] ; 

RETURN 

END; 
ENDLOOP; 
RETURN 
END; 

DumpCharacter: PUBLIC PROCEDURE [c: UNSPECIFIED] - 
BEGIN OPEN lODefs; 
SELECT c FROM 

NUL «> WriteString["NUL"L]; 
TAB «> WriteString["TAB"L]; 
LF «> V^friteString["LF"L]; 
14C => WriteString["FF"L]; 
CR «> WriteString["CR"L]; 
33C => WriteString["ESC"L]; 
IN CHARACTER[NUL..SP) => 

BEGIN WriteChar['t]; WriteChar[LOOPHOLE[c+100B, CHARACTER]] END; 
SP •=> WriteString["BLANK"L]; 
DEL => WriteString["RUBOUT"L]; 
ENDCASE => 

IF c -IN CHARACTER[NUL..DEL] THEN WriteOctalCc] 
ELSE BEGIN Wri teChar[ ' ' ] ; WriteChar[c] END; 
RETURN 
END; 

DumpString: PROCEDURE [sop: SOPointer, long: BOOLEAN] » 

BEGIN OPEN DebugUtilityDefs, lODefs, StringDefs; --type string at [[addr]] 

Is: LONG STRING; 

p: POINTER = @1s; 

1: CARDINAL; 

pt <- Get\/alue[sop] ; 

IF long THEN (p+l)t ^ GetVal ueN[sop , 1] ELSE Is <- LengthenPointer[pt]; 

IF Is = NIL THEN BEGIN Wri teString["NIL"L] ; RETURN; END; 

WriteChar[ ' (] ; Wri teNumber[l <- LongREAD[61s . 1 ength] , UnsignedDecimal ] ; 

WriteChar[' ,]; 

-- the following address-arithmetic computes the location of Is.maxlength 

WriteNumber[LongREAD[1s+l] , UnsignedDecimal]; WriteChar[ ' )]; 

WriteChar['"]; 

IF 1 < 60 THEN UserWriteLongString[ls] 

ELSE 

BEGIN 

UserWriteLongSubString[1s: Is, length: 40. offset: 0]; 

WriteString[" ... "L]; 

UserWriteLongSubString[1s: Is, length: 10, offset: 1-10]; 

END; 
WriteChar['"]; 
RETURN 
END; 

InvalidGFTIndex: ERROR = CODE; 

DumpProgV: PROCEDURE [sop: SOPointer] = 

BEGIN OPEN lODefs; --type external representation of PROGRAM 

f: Global FrameHandle ♦- GetValue[sop]; 

name: STRING ^ DebugMiscDef s . DGetString[40] ; 

WriteString[" PROGRAM "L]; 

IF DebugUtilityDefs. ValidGlobalFrame[f] THEN 

BEGIN 

[] <- LoadStateDefs.InputLoadState[]; 

DebugContextDef s . FrameToModuleName[f , name] ; 

WriteString[name]; 

WriteString[" , Frame: "L]; 

WriteOctal[f]; 

LoadStateDef s .ReleaseLoadState[] ; 

END 
ELSE BEGIN Wri teString["7["L] ; Wri teOctal[f ] ; WriteChar[ ' ]] ; END; 
DebugMiscDef s.DFreeStr ing[ name]; 
RETURN 
END; 

DumpProcV: PROCEDURE [sop: SOPointer] « 

BEGIN --type external representation of PROCV 

OPEN sop.stbase, ControlDefs. DebugUtilityDefs, lODefs; 

cl : ProcDesc ; 

cp: BOOLEAN ^ IF sop.sei ff ISENull THEN (seb+sop . sei) . constant ELSE FALSE; 
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sh: SeiHandle; 

BEGIN 

WriteStringC" PROCEDURE "L]; 

IF -cp THEN c1 <- GetTransferVa1ue[sop ILinksInCocle -> GOTO notlmplemented] 

ELSE BEGIN 

sa: DebuggerDefs.SA; 
WITH sop.baddr SELECT FROM 
short »> sa ^ shortAddr; 
ENDCASE "> ERROR; 
cl ♦- MakeProcedureDescrip to r[( LOOPHOLE [(seb+sop.sei) .idinfo, SymDef s .CBTIndex]+bb) .en try Index, 
LOOPHOLE[sa. Global FrameHandle]] ; 
END; 
DO 

SELECT cl.tag FROM 
procedure => EXIT; 
indirect »> cl ♦- MREAD[cl]; 
ENDCASE «> GOTO end; 
ENDLOOP; 
IF cl.gfi # GFTNull THEN 
BEGIN 
sh ^ ProcSeiHandle[cl .gf i , cl.ep I 

SymbolTableDefs.NoSymbolTable => GOTO noSym; 
SegmentDeFs.Insuff icientVM, Inval idGFTIndex »> GOTO end]; 
WriteTransferName[sh, TRUE, Control Defs .Nul 1 Frame, 

MREAD[@ControlDefs.GFT[cl . gfi] .frame]] ; 
DebugSymbolDef s.DRe leas eSymbol Tab le[sh.s tbase]; 
END 
ELSE GOTO end; 
EXITS 

end => BEGIN WriteString["?["L] ; Wri teOctal [cl ] ; WriteChar[ ' ]] ; END; 
notlmplemented => WriteString["?[?]"L] ; 
noSym => WriteModuleNoSym[cl , MREAD[0GFT[cl .gfi] .frame]]; 
END; 
RETURN 
END; 

ProcSeiHandle: PROCEDURE [gfti: ControlDef s.GFTIndex, 
epn: ControlDef s . EPIndex] RETURNS [sh: SeiHandle] « 
-- finds module and sei for proc whose descriptor is [gfti, epn] 
BEGIN OPEN DebugUtilityDefs, DebugSymbolDef s , ControlDefs, sh.stbase; 
gf: GlobalFrameHandle <- MREAD[@GFT[gfti] .frame]; 
gepn: EPIndex ♦- MREAD[6GFT[gf ti] .epbase] ; 
bti: SymDefs.BTIndex; 
IF gf = NullGlobalFrame OR -Val idGlobalFrame[gf ] OR (gepn MOD EPRange) U 

THEN ERROR Inval idGFTIndex ; 
sh.stbase ♦- DAcquireSymbolTable[SymbolsForGFrame[gf ]]; 
epn <- epn + gepn; 

bti ♦- DebugBreakptDefs.EntryToBTI[sh.stbase, epn]; 
sh.sei <- IF bti = SymDef s .BTNul 1 THEN ISENull 
ELSE WITH b:{bb+bti) SELECT FROM 

Callable => b.id, 

ENDCASE «> ISENull; 
RETURN 
END; 

DumpSigVar: PROCEDURE [sop: SOPointer] » 

BEGIN --type external representation of SIGV 

OPEN lODefs, ControlDefs, DebugUtilityDefs, DebugSymbolDef s , sop.stbase; 

sigv: ControlDef s . SignalDesc; 

cp: BOOLEAN <- IF sop. sei ff ISENull THEN (seb+sop . sei ). constant ELSE FALSE; 

sh: SeiHandle; 

BEGIN 

WriteString[IF Xf erMode[sop . tsei] « error THEN " ERROR "L ELSE " SIGNAL "L]; 

IF ~cp THEN sigv <- LOOPHOLE[GetTransf erValue[sop 

ILinksInCode »> GOTO notlmplemented]] 
ELSE BEGIN 

sa: DebuggerDefs.SA; 

WITH sop.baddr SELECT FROM 
short «> sa <- shortAddr; 
ENDCASE «> ERROR; 

sigv *- LOOPHOLE[(seb+sop.sei). idvalue+ReadGlobalGFI[LOOPHOLE[sa, GlobalFrameHandle]], SignalDesc]; 

END; 
IF sigv. gfi j^ ControlDef s .GFTNull THEN 

BEGIN 
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sh ♦- SigSeiHandleCsigv I 

SymbolTableDefs.NoSymbolTable «> GOTO noSym; 
SegmontDefs.Insuff icientVM, Inval idGFTIndex »> GOTO end]; 

WriteTransferName[sh, TRUE, ControlDefs. Null Frame, 
MREAD[@ControlDefs.GFT[sigv.gfi]. frame]]; 

DReleas0SymbolTable[sh.stbase] ; 

END 
ELSE GOTO end; 
EXITS 

end «> BEGIN WriteString["?["L] ; WriteOctal[sigv] ; WriteChar[ ' ]] ; END; 

notlmplemented «> WriteString["?[?]"L] ; 

noSym «> WriteModu1eNoSym[sigv, MREAD[@GFT[sigv.gfi] .frame]] ; 
END; 
RETURN 
END; 

SigSeiHandle: PUBLIC PROCEDURE [sigv: ControlDefs. SignalDesc] RETURNS [sh: SeiHandle] 
BEGIN -~ finds module and sei for sig 

OPEN DebugUtilityDefs, DebugSymbolDefs , ControlDefs, sh.stbase; 
t: SymDef s .TransferMode; 
sei: ISEIndex; 

gf: GlobalFrameHandle <- MREAD[@GFT[sigv.gf i] . frame] ; 
gepn: EPIndex ^ MREAD[@GFT[sigv.gf i] .epbase] ; 
sh.sei ^ ISENull ; 
IF gf * NullGlobalFrame OR -Val idGlobal Frame[gf ] OR (gepn MOD EPRange) ff 

THEN ERROR Inval idGFTIndex ; 
sh.stbase ♦- DAcquireSymbolTab1e[Symbo1 sForGFrame[gf ]]; 
sigv.gfi ^ gepn/EPRange; --strip off the gfi 
FOR sei ^ FirstCtxSe[stHandle.outerCtx], NextSe[sei] 
UNTIL sei = ISENull DO 

t ^ XferMode[{seb+sei) . idtype] : 

IF (t = signal OR t =« error) AND (seb+sei ). constant 
AND (seb+sei ). idvalue =» sigv 
THEN BEGIN sh.sei ^ sei; RETURN END; 

ENDLOOP; 
RETURN 
END; 

WriteModuleNoSym: PROCEDURE [v: UNSPECIFIED, gf: GlobalFrameHandle] = 
BEGIN OPEN lODefs; 

module: STRING ^ DebugMiscDef s .DGetString[40] ; 
WriteString["?["L]; 
WriteOctal[v]; 
WriteString["], ("L]; 

BEGIN ENABLE DebugUtil i tyDef s . LoadStatelnval id => GOTO end; 
[] ^ LoadStateDefs.InputLoadState[]; 
DebugContextDef s. FrameToModuleName[gf , module]; 
WriteString["in "L]; 
WriteString[module]; 
DebugMiscDef s .DFreeString[module] ; 
LoadStateDef s .ReleaseLoadState[]; 
WriteString[", "L]; 
EXITS 

end => NULL; 
END; 

WriteString["G: "L]; 
WriteOctal[gf]; 
WriteChar[')]; 
RETURN 
END; 

LinksInCode: SIGNAL « CODE; 

GetTransferValue: PROCEDURE [sop: SOPointer] RETURNS [ControlDefs .ProcDesc] - 
BEGIN OPEN ControlDefs, sop.stbase; 
localFrame, gf: GlobalFrameHandle; 
IF sop. sei « ISENull OR ~(seb+sop . sei ) . 1 inkSpace 

THEN RETURN [GetVal ue[sop]] ; 
WITH sop.baddr SELECT FROM 

short «> gf *- LOOPHOLE[shortAddr , GlobalFrameHandle]; 

ENDCASE «> ERROR; 
DebugMiscDef s .CopyRead[from: gf, to: §localFrame, 

nwords: SIZE[Global Frame]] ; 
IF ~local Frame. codel inks THEN --links in frame 

BEGIN 

addr: UNSPECIFIED <- gf - (seb+sop. sei ). idvalue - 1; 
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RETURN[DebugUtilityDefs.MREAD[addr]]; 

END 
ELSE SIGNAL LinksInCode; 
END; 

DumpPortV: PROCEDURE [sop: SOPointor] ■ 
BEGIN OPEN lODefs; 
WriteStringC'PORT ["L]; 
WriteOcta1[GetValue[sop]]; 
WriteStringC", "L]; 
WriteOcta1[GetValueN[sop,l3]; 
WriteChar[']]; 
RETURN 
END; 

DumpProcessV: PROCEDURE [sop: SOPointer] « 
BEGIN OPEN lODefs; 
WriteString["PROCESS ["L]; 
WriteOcta1[GetVa1ue[sop]]; 
WriteChar[']]; 
RETURN 
END; 

DumpBasicType: PROCEDURE [sop: SOPointer] « 
BEGIN OPEN SymOefs, lODefs, sop.stbase; 
v: UNSPECIFIED ^ GetVal ue[sop] ; 
WITH (seb4-UnderType[sop.tsei]) SELECT FROM 
basic => SELECT code FROM 

codelNTEGER => Wri teDecimal [v]; 
codeBOOLEAN => 

IF V = THEN WriteString["FALSE"L] 
ELSE WriteString["TRUE"L]; 
codeCHARACTER => DumpCharacter[v] ; 
ENDCASE => WriteOcta1[v]; 
ENDCASE; 
RETURN 
END; 

DumpPtr: PROCEDURE [sop: SOPointer] » 
BEGIN OPEN lODefs; 
v: UNSPECIFIED ^ GetVal ue[sop] ; 
IF V = NIL THEN 

BEGIN WriteString["NIL"L]; RETURN END; 
WriteOctal[v]; Wri teChar[ ' t]; 
RETURN 
END; 

DumpLongPtr: PROCEDURE [sop: SOPointer] « 
BEGIN OPEN lODefs; 
Ip: LONG POINTER; 
p: POINTER <- 61p; 
pt ♦- Get\/alue[sop] ; 
(p+l)t ♦- GetVa1ueN[sop, 1]; 

IF Ip = NIL THEN BEGIN Wri teString["NIL"L] ; RETURN END; 
DebugMiscDefs.DWriteLongInteger[L00PH0LE[1p], 8]; 
WriteChar['t]: 
RETURN 
END; 

DumpRelative: PROCEDURE [sop: SOPointer] « 
BEGIN OPEN lODefs; 
v: UNSPECIFIED ^ GetVal ue[sop] ; 

WriteNurnber[v , UnsignedDecimal ]; WriteString["tR"L]; 
RETURN 
END; 

sDumpArray: PROCEDURE [nelements, elementsi/e : CARDINAL, 
sop: SOPointer, frp: FRPointer, rsei : SEIndex] « 
BEGIN OPEN lODefs; --dump array elements 
nminusl. k: CARDINAL; 
char: CHARACTER *- '[; 
all: BOOLEAN ♦- FALSE; 
aSO: SymbolObject *- sopt; 



asop 
aFR 
af rp 



SOPointer +- 0aSO; 
ForinatRecord *- frpt; 
FRPointer ^ 0aFR; 
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WriteChar[ ' (]; Wri teDecimal [nelements] ; WriteChar[ ' )] ; 
IF nelements - THEN RETURN; 
nminusl <- nelements - 1; 

IF nelements < 7 OR nelements^elementsize < 7 
OR (sop.space°8 AND ne1ements<14) 
THEN BEGIN all ♦- TRUE; k <- nelements; END 
ELSE k <- MIN[2, nminusl]; 
afrp.symid <- FALSE; 
asop. tsei ^ rsei ; 
asop.sei ^ ISENull ; 
IF k = THEN WriteChar['[] 
ELSE THROUGH [1. .k] DO 

WriteChar[char]; WriteChar[' ]; 
Disp1ay[asop, afrp, FALSE]; 
char ♦" ' , ; 
IF asop. space » 

THEN WITH a:asop.baddr SELECT FROM 

short «> a.shortAddr <- [a.shortAddr + elementsize] ; 
long => a. longAddr . 1 i <-a. longAddr. 1 i+elementsize; 
ENDCASE 
ELSE asop.baddr ♦- addbitaddrs[asop.baddr, f ul Ibitaddress[wd:short[[0]] ,bd:8]]; 
ENDLOOP; 
IF -all THEN 
BEGIN 

WriteString[", ... , "L]; 
IF asop. space = 

THEN WITH sop.baddr SELECT FROM 
short => asop .baddr.wd <- 

short[shortAddr : [shortAddr + elementsize*nminusl]]; 
long => asop. baddr .wd <- long[longAddr: LA[LI[1 i : longAddr . 1 i+elementsize*nminusl]]] ; 
ENDCASE 
ELSE asop.baddr <- addbitaddrs[sop .baddr , 

fullbitaddress[wd:short[[nminusl/2]],bd:{nminusl MOD 2)*8]]; 
Display[asop, afrp, FALSE]; 
END; 
WriteChar[']]; 
RETURN 
END; 

DumpArray: PROCEDURE [sop: SOPointer, frp: FRPointer] « 
BEGIN OPEN sop.stbase; 

rsei: SymDef s .CSEIndex <- UnderType[sop. tsei] ; 
csei: SEIndex; 
nelements: CARDINAL; 

sym: ful 1 bitaddress <- fullsymaddress[sop]; 
sa: DebuggerDefs .SA; 
aSO: SymbolObject *- sopt; 
asop: SOPointer ^ 0aSO; 

WITH sym SELECT FROM 

short => sa ♦- shortAddr; 
ENDCASE «> ERROR; 
WITH sop.baddr SELECT FROM 

short => asop.baddr .wd <- short[[shortAddr + sa]]; 
long => asop.baddr .wd <- long[longAddr:LA[LI[l i : longAddr. 1 i+sa]]] ; 
ENDCASE; 
WITH a: (seb + rsei) SELECT FROM 
array «> 
BEGIN 

IF a. packed THEN asop. space ^ 8; 
nelements <- Cardinal ity[a. indextype] ; 
rsei ^ UnderType[csei ♦- a. componenttype]; 
END; 
ENDCASE «> ERROR; 
sDumpArray[nelements , WordsForType[rsei], asop, Frp, csei]; 
RETURN 
END; 

DumpArrayD: PROCEDURE [sop: SOPointer, frp: FRPointer] » 
BEGIN --dump array descriptor 
arrayD[sop, frp, GetValueN[sop, 1]]; 
RETURN 
END; 

OumpLongArrayD: PROCEDURE [sop: SOPointer, frp: FRPointer] « 
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BEGIN OPEN sop.stbase; --dump long array descriptor 
WITH (seb+UnderType[sop.tsei]) SELECT FROM 

long "> sop.tsei ^ rangetype; 

ENDCASE -> ERROR; 
arrayD[sop, frp, GetValueN[sop,2]] ; 
RETURN 
END; 

arrayD: PROCEDURE [sop: SOPointer, frp: FRPointer, nelements: CARDINAL] « 
BEGIN OPEN sop.stbase; --dump array descriptor 
rsei: SymDef s .CSEIndex <- UnderType[sop. tsei] ; 
csei: SEIndex; 
aSO: SymbolObject <- sopt; 
asop: SOPointer ^ QaSO; 

asop.baddr.wd ♦- short[GetVa1ue[sop]]; 
WITH (seb + rsei) SELECT FROM 
arraydesc «> 
BEGIN 

WITH a:(seb+UnderType[describedType]) SELECT FROM 
array => 
BEGIN 

IF a. packed THEN asop. space <- 8; 
rsei <- UnderType[csei <- a.componenttype]; 
END; 
ENDCASE => ERROR; 
END; 
ENDCASE => ERROR; 
sDumpArray[nelements, WordsForType[rsei] , asop, frp. csei]; 
RETURN 
END; 

DumpLong: PROCEDURE [sop: SOPointer, frp: FRPointer] ■ 
BEGIN OPEN sop.stbase; 

WITH (seb+UnderType[sop.tsei]) SELECT FROM 
long => 

WITH (seb+UnderType[rangetype]) SELECT FROM 
arraydesc => DumpLongArrayD[sop,f rp] ; 
pointer => 

IF FieldContext[sop.stbase, pointedtotype] = StringCTXIndex AND 

TypeForm[pointedtotype] « record THEN DumpString[sop, TRUE] 
ELSE DumpLongPtr[sop]; 
basic «> 

SELECT code FROM 

SymDef s. codelNTEGER ==> DumpLongInteger[sop] ; 
ENDCASE «> ERROR; 
ENDCASE => ERROR; 
ENDCASE => ERROR; 
RETURN 
END; 

DumpLonglnteger: PROCEDURE [sop: SOPointer] « 
BEGIN 

num: LONG INTEGER; 
p: POINTER ^ 6num; 
pt ♦- GetVal ue[sop] ; 
(p+l)t ♦- GetVa1ueN[sop,l]; 
DebugMiscDef s .DWr iteLong Integer [num, 10] ; 
RETURN 
END; 

DumpReal : PROCEDURE [sop: SOPointer] « 
BEGIN 

s: STRING ^ [30]; 
r: REAL; 

p: POINTER ^ 0r; 
pt <- GetVa1ue[sop] ; 
(p+l)t 4- GetVa1ueN[sop,l]; 
IF DebugUti1ityDefs.Bound[DebugRea1Defs.AppendReal Number] THEN 

BEGIN 

DebugRealDefs . AppendReal Number [s , r] ; 

IODefs.WriteString[s]; 

END 
ELSE 

BEGIN OPEN lODefs; 
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Writ8StringC"REAL["L]; 

WriteOcta1[pt]: WriteChar[' ,]; WriteOcta1[(p+l)t]; 
WriteChar[']]; 
END; 
END; 

DumpVar: PUBLIC PROCEDURE [s: STRING, where: SearchType] ■ 
BEGIN 

so: SymbolObject; 
sop: SOPointer ■ 0so; 
FR: FormatRecord; 
frp: FRPointer » 0FR; 
InitSOP[sop]; 
IF ~Lookup[s, FALSE, sop, FALSE, where] 

THEN SIGNAL DebugMiscDef s .LookupFail [s] ; 
FR *- ForniatRecord[indentation: 1, symid:FALSE, f irstsym:TRUE, symdelim: 

startchar: lODefs.NUL, ternichar: lODefs.NUL, intersym: lODefs.CR]; 
Display[sop, frp, TRUE 

lAmlaRecord => RESUME[FALSE]]; 
IF where » config THEN 

BEGIN OPEN sop.stbase; 

IODefs.WriteString[" (in "L]; 

WriteSeiHandle[[stbase: sop.stbase, sei: (bb+MainBTI) . id]]; 

IODefs.WriteChar[')]; 

END; 
DebugMiscDers.WriteEOL[]; 

DebugSymbolDefs.DReleaseSymbol Tab le[ sop.stbase]; 
RETURN 
END; 

END ... 



